home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 June / Ahoy_Magazine_87-06_1987_Double_L.d64 / Alpha Sprite (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  592b  |  18 lines
  1. 0 rem << cd42-6 >>
  2. 1 rem ==================================
  3. 2 rem    commodares problem #38-3 :
  4. 3 print"[147]alpha sprite "
  5. 4 rem    solution by
  6. 5 rem    danny faught
  7. 6 rem =====   for c64 only   ===========
  8. 7 rem ==================================
  9. 10 forx=0 to 7:read c(x):next:data 128,0,192,223,64,192,128,192
  10. 20 for x=832 to 895:pokex,0:next:print"  _press a key"
  11. 30 get a$:if a$="" then 30
  12. 40 a=(asc(a$)+c(asc(a$)/32))and255 :poke 1024,a : p=-2048*(peek(53272)=23)
  13. 50 poke 56334,0 : poke 1,51
  14. 60 for x=0to7:poke 832+x*3,peek(53248+8*a+x+p):next
  15. 70 poke 1,55:poke 56334,1
  16. 80 v=53248 :poke 2040,13:poke v,100:poke v+1,100:poke v+23,1:poke v+29,1
  17. 90 poke v+21,1:goto 30
  18.